home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1998 June
/
Software of the Month Club 1998 June.iso
/
pc
/
dos
/
games
/
dom1
/
fun2.rpp
< prev
next >
Wrap
Text File
|
1998-04-15
|
2KB
|
126 lines
{fun}
var n: number;
var x: number;
randomize;
loop(n=1 to 2)
setcolor(rand(4,255));
line(15,15,15,150);
delay(250);
cls(3);
setcolor(rand(5,255));
line(15,15,15,150);
line(15,15,75,15);
delay(250);
cls(4);
setcolor(rand(6,255));
line(15,15,15,150);
line(15,15,75,15);
line(15,50,50,50);
delay(250);
cls(5);
setcolor(rand(7,255));
line(100,15,100,150);
delay(250);
cls(6);
setcolor(rand(8,255));
line(100,15,100,150);
line(100,150,175,150);
delay(250);
cls(7);
setcolor(rand(9,255));
line(100,15,100,150);
line(100,150,175,150);
line(175,15,175,150);
delay(500);
cls(8);
setcolor(rand(10,255));
line(225,15,225,150);
delay(250);
cls(9);
setcolor(rand(11,255));
line(225,15,225,150);
line(225,15,300,150);
delay(250);
cls(10);
setcolor(rand(12,255));
line(225,15,225,150);
line(225,15,300,150);
line(300,15,300,150);
delay(350);
cls(11);
setcolor(rand(1,255));
line(15,15,15,150);
line(15,15,75,15);
line(15,50,50,50);
line(100,15,100,150);
line(100,150,175,150);
line(175,15,175,150);
line(225,15,225,150);
line(225,15,300,150);
line(300,15,300,150);
delay(350);
cls(rand(1,255));
setcolor(rand(1,255));
line(15,15,15,150);
line(15,15,75,15);
line(15,50,50,50);
line(100,15,100,150);
line(100,150,175,150);
line(175,15,175,150);
line(225,15,225,150);
line(225,15,300,150);
line(300,15,300,150);
delay(350);
cls(rand(1,255));
setcolor(rand(1,255));
line(15,15,15,150);
line(15,15,75,15);
line(15,50,50,50);
line(100,15,100,150);
line(100,150,175,150);
line(175,15,175,150);
line(225,15,225,150);
line(225,15,300,150);
line(300,15,300,150);
delay(350);
cls(rand(1,255));
endl;
loop(x=1 to 10000)
setcolor(rand(1,255));
plot(rand(0,maxx),rand(0,maxy));
endl;